home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_B.d64 / konverter 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  912b  |  17 lines
  1. 5 dima(600):print"[147]konverter  printmaster --> topprint":print"    fuer kleingrafiken (bilder)":print"nikolaus heusler, 10.91  (c) 64'er":input"name des printmaster-bildes ";a$:print"- bitte warten -":open15,8,15,"i0":open2,8,2,a$+".gra,p,r":input#15,f1,f1$,f2,f3
  2. 70 iff1thenprint"diskettenfehler: "f1$:stop
  3. 72 open3,8,3,a$+".[194]i,p,w":input#15,f1,f1$,f2,f3:iff1thenprint"diskettenfehler: "f1$:stop
  4. 78 print#3,chr$(160)chr$(177);:get#2,a$,b$:ifa$<>"p"orb$<>chr$(119)thenprint"filefehler":stop
  5. 90 get#2,a$:ifa$<>"x"thenprint"filefehler":stop
  6. 91 get#2,a$:ifa$thenprint"filefehler":stop
  7. 92 get#2,a$:ifa$<>"4"thenprint"filefehler":stop
  8. 93 get#2,a$:ifa$thenprint"filefehler":stop
  9. 94 get#2,a$:ifa$<>"[180]"thenprint"filefehler":stop
  10. 95 get#2,a$:ifa$<>chr$(139)thenprint"filefehler":stop
  11. 100 fori=1to11:get#2,a$:a(r)=asc(a$+chr$(0)):s=s+a(r):r=r+1:next:ifstthen112
  12. 110 get#2,a$:ifa$<>chr$(139)thenprint"filefehler":stop
  13. 112 z=z+1:ifs=0thenr=r-11:goto100
  14. 120 iff=0thenf=1:print"(bild beginnt bei zeile"z"[157])
  15. 130 [139]z[179]52[167]100
  16. 140 [129]i[178]0[164]5:[129]j[178]0[164]10:[129]k[178]0[164]7:[152]3,[199](a(k[172]11[170]i[172]88[170]j));:[130]k,j:[129]l[178]0[164]7:[152]3,[199](0);:[130]l,i:[160]3:[160]2:[160]15:[153]"okay.":[128]
  17.